Смотрим код.

theView = av.FindDoc("View1")
theView = av.FindDoc("View1")
listTheme=theView.GetThemes 
type = MsgBox.ChoiceAsString(listTheme, "Select Theme to:", "Theme" )
theTheme = theView.FindTheme(type.AsString) 
shapeClass = theTheme.GetFTab.GetShapeClass.GetClassName
MsgBox.Info( shapeClass, "")

Все здесь знакомо за исключением метода GetShapeClass

anFTab.GetShapeClass 

Который возвращает имя класса. Результат работы может быть вот такой.

Можно использовать эту строку для проверки принадлежности к определенному классу.

if (shapeClass = "POLYGON") then
  MsgBox.Info( "POLIGON", "")
end